home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh1x
/
sh13a.d64
/
40k-listing 1
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
972b
|
32 lines
100 GOTO300
110 :
120 : ******************************
130 : * *
140 : * DEMOPROGRAMM ZUM KOPIEREN *
150 : * DES SPEICHERBEREICHS $C000 *
160 : * -$FFFF NACH $8000-$BFFF IN *
170 : * DER FLOPPY 1541 *
180 : * *
190 : ******************************
200 : * *
210 : * VON *
220 : * *
230 : * DIETER PRIESS *
240 : * SCHUETZENSTR. 35 *
250 : * 2400 LUEBECK 1 *
260 : * TEL.: 0451/863222 *
270 : * *
280 : ******************************
290 :
300 FORI=0TO32:READX:S=S+X:NEXTI:IFS<>5511THENPRINT"[198]EHLER IN [196]ATAS !":END
310 RESTORE
320 OPEN1,8,15
330 FORI=0TO32
340 READX
350 PRINT#1,"M-W"CHR$(I)CHR$(5)CHR$(1)CHR$(X)
360 NEXTI
370 PRINT#1,"U3"
380 CLOSE1
390 DATA120,160,0,162,192,169,128,132,192,132,194,134,193,133,195,162,64
400 DATA177,192,145,194,200,208,249,230,193,230,195,202,208,242,88,96